home *** CD-ROM | disk | FTP | other *** search
/ Enigma Amiga Life 109 / EnigmaAmiga109CD.iso / dalla rivista / host contacted / imengv3.41p1.lha / ImEngV3.41p1 / ARexx / Antique.rexx < prev    next >
OS/2 REXX Batch file  |  1996-05-30  |  1KB  |  40 lines
  1. /* Image Engineer ARexx macro script         */
  2. /* by Simon Edwards                          */
  3. /* 11/7/95                                   */
  4. /* 30/5/96 Now uses the colour filter module */
  5.  
  6. Options results
  7. signal on error            /* Setup a place for errors to go */
  8.  
  9. if arg()==0 then exit
  10.  
  11. 'PROJECT_INFO' arg(1) 'TYPE'
  12. if RESULT~='COLOUR' then do
  13.     'CONVERT_TO_COLOUR' arg(1)
  14.     tmp=RESULT
  15.     'COLOUR_FILTER' tmp 'RGB 0 -20 0 -42 0 -87'
  16.     CLOSE tmp
  17. end
  18. else do
  19.     'COLOUR_FILTER' arg(1) 'RGB 0 -20 0 -42 0 -87'
  20. end
  21. exit
  22.  
  23. /*******************************************************************/
  24. /* This is where control goes when an error code is returned by IE */
  25. /* It puts up a message saying what happened and on which line     */
  26. /*******************************************************************/
  27. error:
  28. if RC=5 then do            /* Did the user just cancel us? */
  29.     IE_TO_FRONT
  30.     LAST_ERROR
  31.     'REQUEST "'||RESULT||'"'
  32.     exit
  33. end
  34. else do
  35.     IE_TO_FRONT
  36.     LAST_ERROR
  37.     'REQUEST "Error detected!!!'||D2C(10)||'Image Engineer error message is as follows'||D2C(10)||result||D2C(10)||'Script failed on line '||SIGL||'"' 'Doh!'
  38.     exit
  39. end
  40.